home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 288
- Top = 96
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Timing Test'
- ClientHeight = 215
- ClientWidth = 345
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 16
- object Label1: TLabel
- Left = 15
- Top = 20
- Width = 136
- Height = 16
- Caption = 'Number of Iterations:'
- end
- object T1Addr: TLabel
- Left = 159
- Top = 192
- Width = 68
- Height = 16
- Hint = 'Memory location so you can find out what it'#39's doing!'
- Caption = '0000:0000'
- ParentShowHint = False
- ShowHint = True
- end
- object T2Addr: TLabel
- Left = 258
- Top = 192
- Width = 68
- Height = 16
- Hint = 'Memory location so you can find out what it'#39's doing!'
- Caption = '0000:0000'
- ParentShowHint = False
- ShowHint = True
- end
- object Panel1: TPanel
- Left = 17
- Top = 53
- Width = 310
- Height = 95
- TabOrder = 0
- object Label2: TLabel
- Left = 4
- Top = 18
- Width = 129
- Height = 16
- Hint = '+/- 0.055 sec'
- Caption = 'Total Elapsed Time:'
- ParentShowHint = False
- ShowHint = True
- end
- object Label3: TLabel
- Left = 4
- Top = 54
- Width = 118
- Height = 16
- Caption = 'Time per Iteration:'
- end
- object Single: TLabel
- Left = 145
- Top = 54
- Width = 28
- Height = 16
- Caption = '- - - -'
- ParentShowHint = False
- ShowHint = False
- end
- object Single2: TLabel
- Left = 241
- Top = 54
- Width = 28
- Height = 16
- Caption = '- - - -'
- ParentShowHint = False
- ShowHint = False
- end
- object Total: TLabel
- Left = 145
- Top = 18
- Width = 28
- Height = 16
- Caption = '- - - -'
- ParentShowHint = False
- ShowHint = False
- end
- object Total2: TLabel
- Left = 241
- Top = 18
- Width = 28
- Height = 16
- Caption = '- - - -'
- ParentShowHint = False
- ShowHint = False
- end
- end
- object Niter: TEdit
- Left = 162
- Top = 16
- Width = 82
- Height = 23
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'System'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- Text = '1'
- end
- object Plus: TButton
- Left = 255
- Top = 18
- Width = 20
- Height = 20
- Caption = '+'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 4
- OnClick = PlusClick
- end
- object Minus: TButton
- Left = 284
- Top = 18
- Width = 20
- Height = 20
- Caption = '-'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Pitch = fpFixed
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 5
- OnClick = MinusClick
- end
- object Exit: TButton
- Left = 41
- Top = 168
- Width = 71
- Height = 26
- Caption = 'Exit'
- TabOrder = 6
- OnClick = ExitClick
- end
- object Test1: TButton
- Left = 153
- Top = 158
- Width = 71
- Height = 27
- Caption = 'Test 1'
- TabOrder = 1
- OnClick = Test1Click
- end
- object Test2: TButton
- Left = 252
- Top = 158
- Width = 71
- Height = 27
- Caption = 'Test 2'
- TabOrder = 2
- OnClick = Test2Click
- end
- end
-